plot Binomial[1000, k]*(1-e^(-(ln 2)))^k*(e^(-(ln 2)))^(1000-k) from k=400 to 600